home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / DUALDEMO.EXE / DUO.BAS next >
BASIC Source File  |  1991-03-24  |  768b  |  27 lines
  1. DEFINT A-Z
  2. IF CARDTYPE <2 OR CARDTYPE = 4 OR CARDTYPE = 6 COLOR ,31 'Set color if detected
  3. CLS
  4. Task1$ = "Open" : Task2$ = "Open"
  5. "Task1"                       'First Task ... runs
  6. 'until key is pressed  
  7. PRINT "Task1 Executing"
  8. IF LEN(INKEY$) Task1$ = "Closed"
  9. "Task2"                       'Second Task ... runs
  10. 'until key is pressed
  11. LONG IF Task2$ = "Open"
  12. PRINT "Task2 Executing"
  13. IF LEN(INKEY$) Task2$ = "Closed"
  14. END IF
  15. 'Task routing
  16. 'If First Task still
  17. 'Open processing
  18. 'continues
  19. IF Task1$ = "Open" GOTO "Task1"
  20. 'First Task completed
  21. 'If Second Task still
  22. 'Open processing
  23. 'continues
  24. IF Task2$ = "Open" GOTO "Task2"
  25. 'Both Tasks completed
  26. END
  27.